home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / FOURTH GRADE DEMO.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  143 lines
  1. 1  REM  NOTE THAT THERE IS A SECTION FIVE OF THIS PROGRAM WHICH DOES NOT APPEAR ON THE MENU
  2. 2  REM  THIS UNLISTED PORTION OF THE PROGRAM IS AT LINE 1200 ET SEQ.  FOR USE BY PERSONS OTHER THAN THE AUTHOR THIS SECTION SHOULD BE MODIFIED
  3. 3  REM  THE PORTION OF THE PROGRAM FOR ADDITION AND MULTIPLICATION OF FRACTIONS SHOULD HAVE MANY USES
  4. 5  DIM Y$(50)
  5. 10  REM  EDUCATIONAL DEMO PROGRAM FOR ROY'S FOURTH GRADE WRITTEN MAY 1979 BY N.K. GOTHIE
  6. 15  TEXT : HOME 
  7. 20  HOME : VTAB 6: PRINT "THIS PROGRAM WILL DO THE FOLLOWING:"
  8. 30  PRINT : PRINT "1. NAME PRINT"
  9. 35  PRINT "2. ANYTHING PRINT"
  10. 40  PRINT "3. ADD FRACTIONS"
  11. 50  PRINT "4. MULTIPLY FRACTIONS"
  12. 60  PRINT "5. ALPHABETICAL LIST"
  13. 90  PRINT : PRINT "ENTER THE NUMBER OF THE DESIRED PROTION": INPUT A
  14. 100  IF A = 1 GOTO 200
  15. 105  IF A = 2 GOTO 1100
  16. 110  IF A = 3 GOTO 400
  17. 120  IF A = 4 GOTO 600
  18. 130  IF A = 5 GOTO 800
  19. 140  IF A = 6 GOTO 1200
  20. 160  GOTO 20
  21. 200  HOME : VTAB 8: PRINT "THIS SECTION WILL PRINT YOUR NAME MANY TIMES VERY QUICKLY"
  22. 210  PRINT : PRINT "WHAT IS YOUR NAME"
  23. 220  INPUT N$
  24. 230  FOR N = 1 TO 100: PRINT N$ SPC( 1);
  25. 240  NEXT 
  26. 250  FOR N = 1 TO 2000
  27. 260  NEXT N
  28. 270  FOR N = 1 TO 50
  29. 280  PRINT N$,
  30. 290  NEXT 
  31. 300  FOR N = 1 TO 2000
  32. 310  NEXT N
  33. 320  FOR N = 1 TO 24
  34. 330  PRINT  TAB( N)N$
  35. 340  NEXT 
  36. 350  FOR N = 1 TO 2000
  37. 360  NEXT N
  38. 370  PRINT : PRINT "WOULD YOU LIKE ANOTHER? Y/N"
  39. 380  INPUT Q$
  40. 385  IF Q$ = "Y" GOTO 200
  41. 390  IF Q$ = "N" GOTO 20
  42. 400  HOME : VTAB 8: PRINT "FRACTION ADDITION"
  43. 405  GOSUB 410
  44. 406  GOTO 485
  45. 410  PRINT "ENTER FIRST NUMERATOR"
  46. 420  INPUT B
  47. 430  PRINT "ENTER FIRST DENOMINATOR"
  48. 440  INPUT C
  49. 450  PRINT "ENTER SECOND NUMERATOR"
  50. 460  INPUT D
  51. 470  PRINT "ENTER SECOND DENOMINATOR"
  52. 480  INPUT E
  53. 482  RETURN 
  54. 485  GOSUB 520
  55. 486  GOSUB 490
  56. 487  GOTO 515
  57. 490  PRINT  TAB( 10)B TAB( 20)D TAB( 30)Y
  58. 500  PRINT  TAB( 10)"-" TAB( 15)"+" TAB( 20)"-" TAB( 25)"=" TAB( 29)T TAB( 30)"-"
  59. 510  PRINT  TAB( 10)C TAB( 20)E TAB( 30)Z
  60. 512  RETURN 
  61. 515  PRINT : PRINT "WOULD YOU LIKE ANOTHER? Y/N"
  62. 516  INPUT Q$
  63. 517  IF Q$ = "Y"  THEN  GOTO 400
  64. 518  IF Q$ = "N"  THEN  GOTO 20
  65. 520 Y = (B *E) +(C *D)
  66. 530 Z = C *E
  67. 535 T = 0
  68. 540  IF Y > = Z  THEN T = Y/Z
  69. 545 T =  INT(T)
  70. 550 Y = Y -(T *Z)
  71. 555  GOSUB 999
  72. 560  RETURN 
  73. 600  HOME : VTAB 8: PRINT "MULTIPLY FRACTIONS"
  74. 610  GOSUB 410
  75. 620 Y = B *D:Z = C *E
  76. 630  GOSUB 535
  77. 640  PRINT  TAB( 10)B TAB( 20)D TAB( 30)Y
  78. 642  PRINT  TAB( 10)"-" TAB( 15)"*" TAB( 20)"-" TAB( 25)"=" TAB( 29)T TAB( 30)"-"
  79. 644  PRINT  TAB( 10)C TAB( 20)E TAB( 30)Z
  80. 650  PRINT : PRINT "WOULLD YOU LIKE ANOTHER? Y/N"
  81. 660  INPUT Q$
  82. 670  IF Q$ = "Y" GOTO 600
  83. 680  IF Q$ = "N" GOTO 20
  84. 800  HOME : VTAB 7: PRINT "ALPHABETICAL LIST OF WORDS"
  85. 806 N = 0
  86. 807 N = N +1
  87. 810  PRINT : PRINT "ENTER WORD NUMBER"N
  88. 815  PRINT "IF NO MORE WORDS ENTER 'A'"
  89. 820  INPUT Y$(N)
  90. 830  IF Y$(N) = "A" GOTO 850
  91. 840  GOTO 807
  92. 850  REM  BEGIN SORT
  93. 855 F = 0:J = 1
  94. 860  IF Y$(J) < = Y$(J +1) GOTO 900
  95. 870 X$ = Y$(J +1)
  96. 875 Y$(J +1) = Y$(J)
  97. 880 Y$(J) = X$
  98. 890 F = 1
  99. 900 J = J +1: IF J < = N -1 GOTO 860
  100. 910  IF F = 1 GOTO 855
  101. 920  FOR J = 2 TO N: PRINT  TAB( 16)Y$(J): NEXT 
  102. 930  PRINT : PRINT "DO YOU WISH ANOTHER? Y/N": INPUT Q$
  103. 940  IF Q$ = "Y" GOTO 806
  104. 950  IF Q$ = "N" GOTO 20
  105. 999 R = 0
  106. 1000  FOR S = Y TO 1  STEP  -1
  107. 1005  IF R = 2 GOTO 1030
  108. 1010  IF Y/S =  INT(Y/S) GOTO 1050
  109. 1020  NEXT S
  110. 1030  RETURN 
  111. 1050  IF Z/S =  INT(Z/S) GOTO 1060
  112. 1055  GOTO 1020
  113. 1060 Y = Y/S:Z = Z/S:S = 0:R = R +1
  114. 1080  GOTO 1000
  115. 1100  HOME : VTAB 7: PRINT "THIS SECTION ALLOWS THE PRINTING OF ANY MESSAGE ANY NUMBER OF TIMES"
  116. 1110  PRINT : PRINT "ENTER THE MESSAGE": INPUT L$
  117. 1120  PRINT : PRINT "ENTER THE NUMBER OF TIMES YOU WISH THE MESSAGE PRINTED": INPUT L
  118. 1125  PRINT : PRINT "ENTER THE SPEED": INPUT S
  119. 1126  IF S >255  THEN S = 255
  120. 1127  SPEED= S
  121. 1130  FOR M = 1 TO L
  122. 1140  PRINT M; SPC( 1);L$
  123. 1150  NEXT 
  124. 1155  SPEED= 255
  125. 1160  PRINT : PRINT "WOULD YOU LIKE ANOTHER? Y/N"
  126. 1170  INPUT Q$
  127. 1180  IF Q$ = "Y" GOTO 1100
  128. 1190  IF Q$ = "N" GOTO 20
  129. 1200  HOME : VTAB 8: PRINT "SPECIAL COMPUTER ADDING"
  130. 1210  PRINT : PRINT "WHAT IS YOUR NAME": INPUT N$
  131. 1220  PRINT : PRINT "HOW MUCH IS 2 PLUS 2" SPC( 1)N$: INPUT L
  132. 1230  IF N$ = "MR. GOTHIE" GOTO 1300
  133. 1235  IF N$ = "NELSON" GOTO 1300
  134. 1245  PRINT : PRINT "NO, I'M SORRY" SPC( 1)N$
  135. 1247  IF L = 22 GOTO 1280
  136. 1250  PRINT "2 PLUS 2 ARE 22"
  137. 1260  GOTO 1290
  138. 1280  PRINT "2 PLUS 2 ARE 4"
  139. 1290  PRINT : PRINT "WOULD YOU LIKE TO TRY AGAIN? Y/N"
  140. 1291  INPUT V$: IF V$ = "Y" GOTO 1200
  141. 1292  IF V$ = "N" GOTO 20
  142. 1300  PRINT : PRINT "THAT'S RIGHT, MR. GOTHIE IS ALWAYS RIGHT"
  143. 1310  GOTO 1290